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— file CmdScan.mesa 

— last modified by Sandman, August 30, 1977 10:46 AM 

DIRECTORY 

StreamOefs: FROM "streamdefs" , 
StringDefs: FROM "stringdefs" , 
CmdDefs: FROM "cmddefs". 
lOOefs: FROM "iodefs"; 

DEFINITIONS FROM StreamOefs, StringDefs. lODefs; 

CmdScan: PROGRAM 
IMPORTS StringDefs 
EXPORTS CmdDefs « 
BEGIN 

ReadCmdString: PUBLIC PROCEDURE [input, name, switches: STRING] RETURNS [BOOLEAN] « 
BEGIN 

i: CARDINAL ♦- 0; 
j: CARDINAL; 

activestring: STRING ♦• name; 
c: CHARACTER: 

name, length ^ 0; switches, length *- 0; 

--skip leading blanks -- 
WHILE i < input. length DO 
c*'input[i]; 
SELECT c FROM 
SP => NULL; 
ENDCASE => EXIT; 
i <- i+1; 
ENDLOOP; 

IF i = input. length THEN BEGIN input. length ♦• 0; RETURN[FALSE] END; 

--parse command — 
FOR i IN [i. . input. length) DO 
c**input[i]; 
SELECT c FROM 

V => activestring ♦• switches; 
SP,CR => EXIT; 

ENDCASE =»> AppendChar[activestring,c]; 
REPEAT FINISHED ^> input. length ♦• 0; 
ENDLOOP; 

IF input. length # THEN 
BEGIN 
j ^ 0; 
WHILE (i*-i + l) < input. length DO 

input[j] «- input[i]; 

j ♦• j-^-l; 

ENDLOOP; 
input. length ♦• j; 
END; 

RETURN[TRUE]; 
END: 

ReadCmdStream: PUBLIC PROCEDURE [stream: StreamHandle , name, switches: STRING] RETURNS [BOOLEAN] 
BEGIN 

s: STRING ♦- [80]: 
c: CHARACTER*-SP: 
WHILE NOT stream. endof [stream] 
DO c *- stream. get[stream] : 
SCLCCT C FROM 

SP => IF s. length # THEN EXIT; 
CR => FXIT; 

FNnCASE => AppendChar[s,c]; 
rNDLOOP; 
RrTURN[ReadCmdString[s .name .switches]]; 
END; 

Sk ipFxecCommands: PUBI IC PROCFDURf [stream: StreamHandle] = 
BfGIN 
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name: STRING ^ [40]; 
switches: STRING ♦- [10]; 



[] ♦- ReaclCmdStream[stream, name, switches]; 
END; 



END. 



